***********************************************************************************************
*** Paper: Populist Attitudes and Foreign Policy Postures
*** Figure A2 in Appendix 	   (Section "Robustness check: alternative populism scale")
*** Tables A14-A17 in Appendix (Section "Robustness check: alternative populism scale")
***********************************************************************************************

*** PROGRAM SETUP COMMANDS
	set more off            // Disable partitioned output
	set dp period			// Use comma instead of dot for decimals
	clear all               // Start with a clean slate
	set linesize 80         // Line size limit to make output more readable
	macro drop _all         // clear all macros
	set scheme s1mono, permanent			// set graph scheme, e.g., cleanplots, plottig, plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"				// set font in graphs | "Arial" | "Times New Roman"

************************************************************************************************************************************
************************************************************************************************************************************

*** Open data set
	capture use "Data_clean.dta", clear


*** 1. Descriptives and scaling

	tab w1influencenorm COUNTRY, missing col nofreq

	/* tab w1influencenorm COUNTRY, missing col nofreq

	  Public influence on |
	 CSDP: And on a scale |
	 from 1 to 7, where 1 |                   COUNTRY
	   means 'no influenc |    France    Germany  Great Bri      Italy |     Total
	----------------------+--------------------------------------------+----------
		 1 - No influence |      2,52       2,47       4,61       2,10 |      2,93 
						2 |      2,30       2,84       6,83       2,59 |      3,66 
						3 |      5,47       6,16      11,99       9,53 |      8,36 
						4 |     17,74      19,12      25,05      21,93 |     21,03 
						5 |     25,56      24,86      22,22      22,08 |     23,63 
						6 |     16,13      15,11       8,70      14,80 |     13,65 
	7 - A great deal of i |     18,60      17,59       7,54      16,66 |     15,04 
					   .a |      0,00       0,00       0,00       1,32 |      0,35 
					   .b |     11,68      11,64      12,90       8,99 |     11,27 
					   .c |      0,00       0,21       0,15       0,00 |      0,09 
	----------------------+--------------------------------------------+----------
					Total |    100,00     100,00     100,00     100,00 |    100,00 */


	correlate w1influencenorm revw1manich1 revw1manich2 revw1manich3 revw1experts1 revw1experts3

	/* correlate w1influencenorm revw1manich1 revw1manich2 revw1manich3 revw1experts1 
	revw1experts3 (obs=6.186)

				 | w1infl~m revw1m~1 revw1m~2 revw1m~3 revw1e~1 revw1e~l
	-------------+------------------------------------------------------
	w1influenc~m |   1,0000
	revw1manich1 |   0,1039   1,0000
	revw1manich2 |   0,0984   0,3537   1,0000
	revw1manich3 |   0,1402   0,3177   0,3600   1,0000
	revw1exper~1 |   0,1688   0,2772   0,2319   0,3152   1,0000
	revw1exper~l |   0,1644   0,2385   0,1844   0,2350   0,3404   1,0000 */



*** EFA
*** Exploratory analysis
	tab1 w1manich1 w1manich2 w1manich3 w1experts1 w1experts3, missing
	tab1 revw1manich1 revw1manich2 revw1manich3 revw1experts1 revw1experts3, missing

	factor w1influencenorm revw1manich1 revw1manich2 revw1manich3 revw1experts1 revw1experts3, ipf // Orthogonal 
	screeplot, graphregion(color(white)) ytitle("Component") title("Eigenvalues VW  scale + influence W1") ylab(,nogrid) yline(1) 

	factor w1influencenorm revw1manich1 revw1manich2 revw1manich3 revw1experts1 revw1experts3, ipf // Orthogonal 
	rotate, orthogonal varimax
	estat kmo

/* . estat kmo

Kaiser-Meyer-Olkin measure of sampling adequacy

    -----------------------
        Variable |     kmo 
    -------------+---------
    w1influenc~m |  0,8075 
    revw1manich1 |  0,7642 
    revw1manich2 |  0,7356 
    revw1manich3 |  0,7583 
    revw1exper~1 |  0,7521 
    revw1exper~l |  0,7572 
    -------------+---------
         Overall |  0,7560 
    ----------------------- */

factor w1influencenorm revw1manich1 revw1manich2 revw1manich3 revw1experts1 revw1experts3, ipf // Orthogonal 
rotate, oblique oblimin
estat common // Correlation matrix of the rotated factors
estat kmo


correlate GoertzPopulism_0_1 GoertzPopulism_0_1_w1influence

/*. correlate GoertzPopulism_w1influence GoertzPopulism
(obs=6.619)

             | Goertz~e Goertz~m
-------------+------------------
GoertzPopu~e |   1,0000
GoertzPopu~m |   0,7006   1,0000 */


graph box GoertzPopulism_0_1_w1influence GoertzPopulism_0_1, title("Goertz Scale Populism, by Country") over(COUNTRY, gap(500))


************************************************************************************************************************************
************************************************************************************************************************************

*** 2. Model with host ideologies controlled (left-right specified as categorical)

*** DV: Posture 1: Militant internationalism
	regress mi_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1
	regress mi_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m2
	regress mi_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m3
	regress mi_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m4

*** DV: Posture 2: Cooperative internationalism
	regress ci_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m5
	regress ci_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m6
	regress ci_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m7
	regress ci_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m8

*** DV: Posture 3: Isolationism
	regress iso_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m9
	regress iso_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m10
	regress iso_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m11
	regress iso_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m12

*** DV: Posture 4: Global justice
	regress gj_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m13
	regress gj_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m14
	regress gj_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m15
	regress gj_index c.GoertzPopulism_0_1_w1influence  ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m16

***************************************
*** Tables A14-A17 in Appendix 
***************************************

	esttab 	m1 m2 m3 m4 using "Tables/Appendix_Table_A14.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of militant internationalism posture on alternative populism scale and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism scale" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m5 m6 m7 m8 using "Tables/Appendix_Table_A15.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of cooperative internationalism posture on alternative populism scale and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism scale" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m9 m10 m11 m12 using "Tables/Appendix_Table_A16.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of isolationism posture on alternative populism scale and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism scale" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m13 m14 m15 m16 using "Tables/Appendix_Table_A17.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of global justice posture on alternative populism scale and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism scale" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


************************************************************************************************************************************
************************************************************************************************************************************


*** THE FOLLOWING REPLICATES THE INTERACTION EFFECTS WITH THE ALTERNATIVE POPULISM MEASURE ***
*** THESE TABLES AND FIGURES THAT ARE SHOWN NOWHERE IN THE ARTICLE OR APPENDIX ***


/*
*** 3. Model with left-right interaction (left-right as categorical)

	capture use "Data_clean.dta", clear


*** DV: Posture 1: Militant internationalism
	regress mi_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m17
	regress mi_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m18
	regress mi_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m19
	regress mi_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m20

*** DV: Posture 2: Cooperative internationalism
	regress ci_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m21
	regress ci_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m22
	regress ci_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m23
	regress ci_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m24


*** DV: Posture 3: Isolationism
	regress iso_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m25
	regress iso_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m26
	regress iso_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m27
	regress iso_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m28


*** DV: Posture 4: Global justice
	regress gj_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m29
	regress gj_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m30
	regress gj_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m31
	regress gj_index c.GoertzPopulism_0_1_w1influence##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m32

	esttab 	m17 m18 m19 m20 using "Tables/Appendix_OLS_MI_bycountry_otherPOPmeasure_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of militant internationalism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism score" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m21 m22 m23 m24 using "Tables/Appendix_OLS_CI_bycountry_otherPOPmeasure_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of cooperative internationalism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism score" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m25 m26 m27 m28 using "Tables/Appendix_OLS_ISO_bycountry_otherPOPmeasure_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of isolationism posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism score" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


	esttab 	m29 m30 m31 m32 using "Tables/Appendix_OLS_GJ_bycountry_otherPOPmeasure_interaction.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of global justice posture on populism and other predictors") ///
		mtitles("France" "Germany" "UK" "Italy") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzPopulism_0_1_w1influence "Altern. populism score" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not Self-Categorized" ///
								100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Left" ///
								200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Left" ///
								400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Center-Right" ///
								500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Right" ///
								600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence "Populism (Goertz) * Not Self-Categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzPopulism_0_1_w1influence 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec 100.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 200.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 400.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 500.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence 600.LeftRightAll_Rec#c.GoertzPopulism_0_1_w1influence age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)


******************
*** Figures
******************

*** Figures militant internationalism
	estimates restore m17
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Militant internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("France", size(large)) ///
								legend(off) ///
								text(.80 -0.01 "Right", color(gs9) place(right) size(large)) ///
								text(.33 -0.01  "Left", color(gs0) place(right) size(large))

	estimates restore m18
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Militant internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Germany", size(large)) ///
								legend(off) 

	estimates restore m19
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Militant internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("UK", size(large)) ///
								legend(off)

	estimates restore m20
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g1d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Militant internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Italy", size(large)) ///
								legend(off) 


*** Figures Cooperative internationalism
	estimates restore m21
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Cooperative internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("France", size(large)) ///
								legend(off) ///
								text(.35 -0.01 "Right", color(gs9) place(right) size(large)) ///
								text(.90 -0.01  "Left", color(gs0) place(right) size(large))

	estimates restore m22
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Cooperative internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Germany", size(large)) ///
								legend(off) 

	estimates restore m23
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Cooperative internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("UK", size(large)) ///
								legend(off)

	estimates restore m24
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g2d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Cooperative internationalism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Italy", size(large)) ///
								legend(off) 


*** Figures Isolationism
	estimates restore m25
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Isolationism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("France", size(large)) ///
								legend(off) ///
								text(.70 -0.01 "Right", color(gs9) place(right) size(large)) ///
								text(.15 -0.01 "Left", color(gs0) place(right) size(large))

	estimates restore m26
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Isolationism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Germany", size(large)) ///
								legend(off) 

	estimates restore m27
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Isolationism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("UK", size(large)) ///
								legend(off)

	estimates restore m28
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g3d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Isolationism", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Italy", size(large)) ///
								legend(off) 


*** Figures Global justice
	estimates restore m29
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4a, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Global justice", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("France", size(large)) ///
								legend(off) ///
								text(.25 -0.01 "Right", color(gs9) place(right) size(large)) ///
								text(.80 -0.01 "Left", color(gs0) place(right) size(large))

	estimates restore m30
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4b, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Global justice", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Germany", size(large)) ///
								legend(off) 

	estimates restore m31
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4c, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Global justice", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("UK", size(large)) ///
								legend(off)

	estimates restore m32
						margins, at(GoertzPopulism_0_1_w1influence=(0 (.025) 1) LeftRightAll_Rec=(100 500))
						marginsplot,  ///
								name(g4d, replace) ///
								recast(scatter) ///
								plotopts(mcolor(none))  ///
								ciopts(recast(rbar) barwidth(0.01)) ci1opts(color(gs0) alcolor(none)) ci2opts(color(gs9%80) alcolor(none)) ///
								xtitle("Populism (Goertz)", size(large)) xscale(range(0 1)) xlabel(0 (0.2) 1, labsize(large)) ///	
								ytitle("Global justice", size(large)) yscale(range(0 1)) ylabel(0 (.2) 1, labsize(large)) ///	
								title("Italy", size(large)) ///
								legend(off) 
*/
